R Notebook

data

data from pokemon_cards_project, csv from here

price_df1 |> 
  ggplot(
    aes(price_normal, price_foil, colour = hp)
  ) +
  geom_count(alpha = .2, stroke = 1) +
  geom_abline(slope = 1, size = .1) +
  geom_smooth(methods = "lm") +
  scale_x_continuous(limits = c(.01, 120), trans = "log10") +
  scale_y_continuous(limits = c(.01, 120), trans = "log10") +
  scale_colour_viridis_c(trans = "log10") +
  # facet_wrap(vars(rarity)) +
  theme_pokemon +
  theme(aspect.ratio = 1)

Warning: Ignoring unknown parameters: methods

price_df2$evolution_stage |> unique()
price_df2 |> colnames()
price_df2 |> 
  ggplot(aes(pokemon_id, price, colour = hp)) +
  geom_count(
    data = price_df2 |> select(-foil), 
    size = .3, 
    colour = "grey70",
    alpha = .3
    ) +
  geom_count(alpha = .5, size = .3) +
  geom_smooth() +
  facet_grid(
    cols = vars(rarity),
    rows = vars(foil)
  ) +
  scale_y_continuous(
    breaks = 10^(-1:3),
    labels = 10^(-1:3),
    trans = "log10"
    ) +
  scale_colour_viridis_c(trans = "log10", limits = c(40, NA)) +
  theme_pokemon

release_dateが古ければ高い、というのはありそう。